IBH HAINTENANCE DIAGNOSTIC PROGRAN 



PPB3 



DIAGNOSTIC LOUDER POR DISK 



PART NO. 
PAGE 



25884S7 
1 



EBR IOC OBJECT CODE 



0000 
0015 



AOHR STflT SOURCE STATEtlENT 



00 IS 


40404040 


0019 


C2 


02 


0018 


00 ID 


B«t 


08 


63 


0020 


CO 


87 


02 IE 


C024 


02 






0025 


01FP 




0027 


0018 




0029 


BC 


Oh 


9A 


002C 


BC 


00 


9B 


002P 


EO 


87 


BD 


0032 


00 






0033 


38 


02 


01FD 


0037 


?2 


90 


03 


003A 


B5 


10 


63 


003D 


EO 


87 


7E 


0040 


6D 


02 


02 A7 


0044 


F2 


01 


07 


0047 


6D 


02 


07 00 


0O4B 


P2 


81 


IB 


004E 


BD 


OC 


9A 


0051 


F2 


81 


03 


0054 


EO 


87 


17 


0057 


38 


01 


01 FD 


005B 


F2 


10 


07 


0O5E 


35 


08 


01FP 


0062 


FO 


3B 


73 


ooes 


CO 


87 


0000 



0069 9C 01 9B 04 

006D EO 87 BD 

0070 00 

0071 EO 87 7E 

007l» 38 20 01FD 

0078 CO 10 007C 

007C 7D El 00 

007r CO 01 CAOB 



0J18 
001R 



00 20 

0024 
00 26 
00 28 



0032 



0068 



0070 



FFB 



DECK 4 

START 

ORG X«015' 
***********•************»**•**♦♦**♦*«»»»«♦♦*«»»*»*»«»»*»♦*«*««*♦**»»»» 
* CONTROL PROGRAH LOADER 

* 

THTS PROGRAM NODULE LOADS THE CONTROL PROGRAN, INCLUDING ITS SEC- 
TION REFERENCE TABLE. A ONE S 2CT0R BOOTSTRAP LOADER READS THIS 
LOADER INTO CORE 6 BRANCHES TO IT. LOAD CARDS RECOG»IZED BY THE 
DCP LOADER ITCLODE 



TEXT 

* END 

* CPU 
» ODT 

* 

* OTHER CARDS ARE IGNORED. 

* 



2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
1 1 

14 

15 

16 

17 

18 

i9 

20 

21 

22 

23 

2u in 

25 ENT2 

26 

27 SETWOK 

28 

29 NTWO 

30 SOURCE 
31 

32 

33 SETSCN 

34 

35 RDVTOC 

36 SEEKF1 
37 

38 

39 

UO 

(11 

42 

43 

44 

45 CKND 

46 

47 

48 

4 9 

50 

51 

52 

53 

5 ; 4 

54 

54 

54 

55 

5o 

57 PGHLOD 

58 SEEKF2 
59 

60 

61 

62 1EXIT 

63 

64 

65 CKCOHA 



HD 



HPLHD 

LDR 

XREF1 



USING BASB1.2 

DC CL4« • 

IA BASE1.XR2 

ST !1P.XIT*3 (,XR2) ,ARR 

EQl) * 

B UNP.1TK 

DC XL1'02' 

rC AL2(DTABLE*1) 

DC AL2(ID) 

-1VI RDDFC+1 (,XR2) ,08 

AVI RDDPC»2 (»XR2) ,0 

B STRTTO(,XR2) 

DC XL TOO' 

TBN t'LAG,RIT6 

JF **6 

L nEXIT*3(,XR2) ,IAR 

B READ(,XR2) 

CLC 2 (,XR1) ,ACTCON(3,XR2) 

JNE CKND 

CLC 7 (,XR1) ,ID(3,XR2) 

JE IDPND 

CLI RDDFC + 1 (,XR2) ,X'0C« 

JE HD 

B RDVTOC(,XR2) 

TBN PLAG,BIT7 

JT LDR 

L DTABLE*1,ARR 

HPL X'73 , ,X , 3B' 

B »-* 

EQO *-1 



LOAD XR2 AS BASE 

SAVE RETURN ADDRESS FOR '»' CARDS 

TO UNPACK ROUTINE 

LENGTH 

SOURCE ADDRESS 

DESTINATION ADDRESS 



SET TO BEGIN SCAN AT CYLINDER ° 

SET TO BEGIN AT HEAD SECTOR 0. 

TO I/O SUBROUTINE TO SEEK 
FUNCTION CODE 



EXIT 
READ 



AFTER SEEK T NG TO VTOC 
A VTOC ENTKY 



ID HAS BEEN FOUND 

TEST END OF VTOC 

rr "-ICH IP ALL CYLINDERS ARE DONE 



IDFND KVC RDDFC+2(2,XR2) ,4(,XR1) PLACE PGH..'ADDR. IN CONTROL PLD, 



B 
DC 

B 

TBN 
BT 

CIT 
BNC 



STPTIO(,XR2) 
XLI'OO' 

READ(,XR25 

FLAG, BIT2 
♦ ♦4 

(,XR1) ,C«T« 
CKCOM1 



TO I/O SUBROUTINE TO SEEK 
FUNCTION CODE 
TO READ ROUTINE 



EXIT IF PIT 2 IS ON 



TS THIS 
BR TO 



A TKXT CARD ? 
NEXT TET.T IF NOT. 



66 ** NOTE - BRANCH ADDRESS OF PREVIOUS BRANCH IS ALTERED AFTER DCP 



DATE 
EC NO. 



20APR70 
S1&6R2 



01AUG70 
M6730 



0lo>-T70 
816760 



01APR71 
818948 



PROG ID 
PAGE 



OPPb-3 
1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2SHR4S7 
1A 



P»B3 



DIAGNOSTIC LOADER FOR DISK 



ERF LOC OBJECT COOE 



0083 9C 02 79 03 

0087 9C 00 7A 01 

008B 02 01 0<l 

008E 1C 00 00O0 00 

0093 E0 87 55 

0096 B- 08 98 
0099 B- 00 9C 
009C BO 87 BD 
009F 01 

00*0 AE 01 9B A3 
OOAU B8 60 9E 

00A7 EO 10 88 
OOAA B5 01 9E 
00AO CO 87 0000 

O0B1 00 
00B2 07 
CJ0B3 OU 
OOBU 00 
00B5 0880 
00B7 0000 
0OB9 OOOO 
U^BB OU 
OOBC 00 
OOBD C1C3E3 
00C0 0000 
0OC2 00B1 
OOCU 00C6 
0CC6 OOOPOOPP 

OOCA OOCC 
OOCC 00 
OOCD 00 
OOCE 00 
OOCP 00 
OODO O0D2 
00D2 00 
0OD3 00 
0OD« 00 



ADDH STMT SOURCE STATEMENT 



009F 



00B1 
00B2 
O0B3 
OOBU 
00B6 
00R8 
OOBA 
OOBB 
OOBC 
OOBP 
00C1 
00C3 

oocs 

00C9 

OOCB 
OOCC 
OOCD 
OOCE 
OOCF 
00D1 
00D2 
00D3 
OODtt 



67 
68 
61 
70 
71 
72 
71 
74 
75 
76 
77 
79 
79 

no 
r.i 

82 

81 

rtU 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

1 OU 

105 

106 

107 

108 



** LOADINt" 

mvc 
nvc 

LA 

mvc 

B 



norE 



READ 



READF 
ALC 



ST 

hvi 

B 

DC 
ALC 
TBN 



BT 
L 
REDEXT B 

RDDFC DC 

nc 

DC 
DC 
DFDR DC 

SENSE DC 
TWOZR DC 
ONESEC DC 
SECTNO DC 
ACTCON DC 
EXTSAV DC 
NRMDFC DC 
RECABa DC 
DC 
* 

ALTDFC DC 

ARDDFC DC 

DC 

DC 

DC 

LASTS DC 

DC 

LAS. AD DC 

DC 



COMPLETE TO PREPARE FOR SrXTIOH LOADING. 



NOVEO (3.XR2) , 3 < , X' R 1 ) 
BOVEm ( 1,XR2) ,1 (,XR1) 
4 (,XR1) ,XR 1 

♦-*{*-*). *-*(.XR1) 

PGMLOD (,XR2) 

FEDEXT*3 (,XR2) ,ARF 
RDDFC*3 (,XR2) ,00 
STRTIO (,XR2) 
XLl'01* 



SET DESTINATION ADORES" IN TEXT HOVE 
PIACF, INSTRUCTION LENGTH IN MOVE 
INCREASE POINTER BY U. 
"OVE TEXT DATA TO CORP 
GO RflAD NEXT CARD 

SAVE EXIT ADDRESS 
SET TO READ ONE SECTOR 
TO I/O SUBROUTINE TO READ 
FUNCTION CODE 



RDDPC*2(2, XR2) , ONESEC (,XR 2) 
RDPFC»2(. XR2) ,X'60' 



ALC(,XR2) 
nPDR(.XR2) ,XR1 

*-* 



XLI'OO' 

7L1'07« 

XLI'OU* 

XLI'OO* 

AL2 (WORK) 

XL2'0* 

XL2'0' 

:M'«' 

XL1 '0' 

CL3'ACT' 

XL2'0' 

AL2(RDDFC) 

AL2(**2) 

XLU'FF' 



LOAD XR i 
EXIT 



STEP SECTOR NUMBER +1 
TEST POR SECTOR NO'S 
24 THRU 31. 
IF EQUAL, STEP AGAIN 
WITH ADDRESS OF 7EAPIH AREA 



FLAG 

CYLINDER 

TRACK E SECTOR NO. 

NUMBER OP SECTORS OR 



TRACKS 



*«*»«»*•*»*♦•'»•*♦************ 

» MUST BE TOGETHER * 

»♦«*»**♦»**♦»«*»»♦*****»**»*» 



AL2 (ARDDFC) 

XLI'O* 

XL1 '0' 

XLI'O' 

XLI'O' 

AL2(**2) 

XLI'O* 

XL1'0* 

XLI'O' 



**»**»***********t*»*v»**»*** 

* MOST BE TOGETHER * 

* * 



BUTE 
EC NO. 



20APR70 
8166 82 



01 AUG70 
8167 30 



010CT70 
816760 



OUPR71 
31R9U8 



PIOG ID 
PAGE 



OF'r'B-3 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAfl 

FFB3 DIAGNOSTIC LOADER FOR DISK 

EBB LOC OBJECT CODE ADDR S .'(IT SOURCE STATEPIENT 



PART NO. 2588457 

PAGE 2 



00D5 B5 02 AB 

ODD" B1 A6 12 

OODP BU 08 9A 

OODE B5 01 9A 

0OE1 9C 0" 8C 00 

OOES BO A6 07 

00R8 79 07 00 

OOEB B5 0- 07 

OOEE F2 90 48 

0CP1 SI A6 20 

0OPI4 PJ A1 01 

0OF7 El A2 46 

00 FA B9 C3 21 

OOFD F2 10 OC 

01O0 B1 A6 14 

0103 F? AO 00 

01O6 El A2 55 

01O9 BC 00 22 

01OC B1 A6 07 

01OF 7C 00 03 

0112 6D 00 01 22 

01 16 F2 81 20 

01 19 F2 84 OB 

01 1C AC 00 82 22 

0120 9P 00 82 01 
0124 F2 87 OB 

0127 7A 01 02 

012A 9C 00 82 01 

012E AF 00 82 22 



01.3 2 7C 03 
0135 9C 00 22 01 



0139 B1 A4 05 

01 3C P3 00 00 

013P El A2 8E 

01U2 7B 01 02 

0145 E1 AO A1 

01U8 C2 01 OOOO 

01UC B5 02 D9 

011F DO 87 01 



01S2 B1 A6 1A 
0155 F3 A 1 01 
0158 E1 A2 A7 
015B BD 02 1h 
015E F2 81 09 
0161 FO 3B 07 
0164 B1 A6 12 
0167 F2 87 03 
016A BC 01 1B 
01611 AC 01 10 9A 
0171 EO 87 2A 



0005 
00B1 



01 33 



0139 



0143 



0018 



00B1 
0152 



I 10 • 

I I ■; 

112 STRTIO 
1 11 
1 14 
1 15 

116 STPARB ST 

117 LDPARH L 
HVC 



STAR''' I/O SlinROUTTNE 



F.Qt! * 

L NRJIDFCf, XR2) , XR2 

USING RDDFC,2 

LIO NRNDFC(,XR2) .CTLREG 

SF.TXR1 (,XR2) ,ARR 
SETXR1 (,XR2) , XR1 
SIOH (1.XR2) .0(,XI>1) 
SENSE(,TR2) , CTLREG 
(,XR1) ,X«07« 
SENSE (, XR2) ,XR1 



SNS 
T3F 
L 



118 
119 

i.:o 

121 

122 * 

123 .IF 
124 

125 tio 

12ft SIO 

127 TIO 

128 TBF 

129 JT 

130 LIO 

131 SIO 

132 TIO 

133 nvi 
1 34 OK I. TO 
135 HVI 
1 36 CLC 

137 JE 

138 JH 
119 HVC 
140 b-C 
1141 J 
142 

143 PWDSEK SBN 

144 r.VC 

145 SLC 
1U6 

147 SCRCH EQO 

148 SETADR nvi 

149 HVC 

150 ADREXT EOU 
151 
It,.- LIO 

153 ilO SIO 

154 3AIT T T C 
155 
156 
157 

158 TSTERR TIO 

159 SETXR) EOU 

160 LA 

161 L 
162 
163 
164 

165 USING K0DFC.2 

166 DSKERP EQU « 

167 LIO 

168 ALTSIO SIO 

169 WAIT1 TIO 

170 CLI 

171 JE 

172 ERRHLT HPL 

173 LIO 
17(4 J 

175 SETALT HVI 

176 SAVPRH HVC 

177 B 



ADREXT 

LAST* (,XR2» .CTLREG 
1 , X' A1« 

* (,XR2) ,BUSY 
LAST\D-1 (,XR2) ,03 
IK 

RFCAR3(,XR2) .CTLREG 
0, X' AO' 

* (,XR2) .ROSY 
L)iSTAn(,X.-?2) ,0 
SENSE (,XR2> -TLREG 
3 (,XR1) ,0 



LOAD BASE VALUE FOR START I/O 

LOAD CONTROL REG. 

SAVE ADDRESS RECALL REGISTER 

LOAD XR1 AS PARAMETER POINTER 

SET FUNCTION CODE IN SIO 

SENSE THE CtlRRENT CTL. FLD. ADDR. 

TEST FOR SEEK 

LOAD XR1 AS POINTER 

TO DISK CONTROL FIELD. 

NO, SKIP SET ADDRESS. 



READ ID 



TEST FOR ALT. 
THE CVL IS OK 

R F.C A B R I AT E 



OR DEFECT. 



RESTORE CTLREG 

SET SEEK # TO 
1 (,XR1) ,LASTAD(1,XR2) C03PSRE NEW ADDRESS WITH OLD 
ADREXT EQUAL, SEEK NOT NECESSARY 

FWDSEK NEW ADDR. HIGHER, DO FORWARD SEEK 

SCRCH(1,XR2) ,LASTAD(,XR2) PLACE LAST ADDR. IN WORKAREA 
SCRCH (1,XR2) , 1(,XR1) SUBTRACT NEW ADDR. FROM LAST 
SRTADB PROCEED 



2(,XR1) ,01 

SCRCH (1.XR2) , 1 (,XR1) 



SET HIT f!N FOR POPWARD SEEK 
PLACE NEW ADDRESS IN WO!>K AREA 



SCRCH (1,XR2) ,LASTAD(,XR2'. SUBTRACT LAST ADDR. PROM SriW 



** 1 

3(,XR1) ,*-* 

LASTAD(1,XR2) ,1 (,XR1) 

* 

D«>DR(,XR2) ,X« A4« 

0,0 

♦ <,XR2) ,BfISY 

SBF 2(,XR1),01 

DSKERR (,XR2) ,NTRDY 

**3 

*-*.X«1 

RECARD*7 (,XR2) ,XR2 
OSING BASE1.2 
B (,XR1) 



INSERT NO. OF TRACKS TO CROSS 
SAVE NEW ADDRESS 



LOAD DATA REGISTER 
START I/O OPERATION 
WAIT TILL COMPLETE 

TURN OFF FOR. / REV. BIT 

BRANCH IF ERROR 



LOAD XR1 
LOAD XR2 

EXIT 



AS PARAMETER POINTER 
AS BASE 



TO POINT TO ALT. FLD. 



ALTDFC(,XR2) .CTLREG 

01, X* A1' 

♦ (,XR2) .HtlSY 

ARDDFC(,XR2) ,02 

SETALT 

H7.HH 

NRHDPC(,XR2) , CTLREG 

SAVPRH 

ARDDFC(,XF2) ,01 SET FLAG BIT TO ALTERNATE 

EXTSAV(2,XR2) .SBTXR1 (,XR2) SAVE OLD PARAMETER PTF. 

STPAHH(,IR2) TO T/O SUBROaTINR TO SEEK ALT. TK. 



LOAD CTL. REO. 

READ ID SIO 

DELAY TILL FINISHED 

TEST TOR A DEFECTIVE TRACK 

JUMP IF IT IS. 

ERROR HALT 

LOAD CONTROL REG. 



DATE 
EC NO. 



20APR70 

81668; 



01AUG70 
816730 



010CT70 
816760 



01APR71 
R1B948 



PROG ID 
PAGE 



OFFB-3 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



25H8457 
2A 



FEB 3 



DIAGNOSTIC LOADER FOR DISK 



ERR IOC OBJECT CODE 

0174 00 

017= B5 02 AB 

0*78 AC 01 9A 10 

0I7C AC 02 1E 03 

0180 EO 87 2D 



0183 34 08 0195 

0187 C2 02 O01B 

018B EO 87 BD 
C18E 00 

018E EO 87 7E 

0192 CO 87 0000 



ADDR STflT SOURCE STATEMENT 



0174 
0018 

0081 



0018 



018E 



0196 7D SC 00 

0199 F2 01 OF 

019C 38 01 020R 

01AO EO 10 55 

01A3 CO 87 021A 

01A7 21 

01A8 EO 87 55 

01AB 7D E2 00 

01AE F2 01 27 

01B1 OP 03 020D 02OD 

01B7 D2 01 05 

01BA 34 01 01C4 

01BE CO 87 0226 

01C2 02 

01C3 0000 

01C5 0000 

01C7 CO 87 0000 

01CB 7D 6B 01 
01CE D2 01 03 
01D1 CO 81 01BA 
01D5 EO 87 55 
01D8 7D C5 00 
01DB EO 01 55 
01DE 38 04 01FD 
01E2 DO 90 81 
C1E5 B5 01 63 
01E8 DO 87 00 



FUNCTION CODE 



D BASE VALUE FO ." STA"T I/O 



178 SEEKF3 DC XLI'OO 1 

179 USING P.ASE1,2 
L NRMDFC(, XR2) ,XR2 
USING RDDFC,2 

MVC SETXR1 (2.XR2) ,EXTSAV (,XR2) RESTORE PAREMETER PTR. 

HVC ARDDFC*3 (3,XR2) .RDDPC+3 (, XR2) TRANSFER C,S,N NUMBERS 



180 
181 
182 
183 
1B4 
105 
186 
187 
18.3 



LDPARN(, XR2) 



TO RETRY ORIGINAL OPERATION 



CONE HERE TO READ A DATA RECORD 



USING BASE1.2 

RP.CEXTO.ARR 
BASE1.XR2 
STRTIOf, XR2) 
XL1 ■00' 

READ', XR2) 

*-« 



SAVE SDD3ESS RECALL REGISTER 

LOAD XR2 AS RASE 

TO I/O SUBROUTINE TO SEEK 

FUNCTION CODE 
TO READ DATA RECORD 
EXIT 



189 RECARD ST 

190 LA 

191 R 

192 SFEKF4 DC 

193 B 
1914 RECEXT 3 
195 

196 ** THE FOLLOWING CODING COMPLETES THE SECTION LOADER. IT IS » 

197 ** BYPASSED DURING DCP LOADING. ONCE THE CONTROL PROGRAM IS LOADED,* 

198 «* LINKAGES ARE SET UP SO THAT A BRANCH TO THE END CARD ROUTINE HILL* 

199 ** BE SUBSTITUTED FOR THE DCP LOADER RESIDING (T HEX -AO0- * 
200 





201 


CKCOM 


CLI 


o (,xm> ,c* # 




202 




JNE 


CHKSSH 




2C 3 




TBN 


SRYTEO.SSW07 




2( <4 




BT 


PGMLOD(,XR2) 




2 05 




13 


PilIMT 


01A7 


206 




DC 


XL1 « 21 • 




207 




3 


PGMLOD(,XR2) 


020D 


208 


S BYTES 


EOU 


X»?OD« 




209 


CHKSSW 


CLI 


(, XP1) ,C'S« 




210 




JNE 


CHKSE 




211 


SSWRD 


SLC 


SBYTE5(U) .SBYTE5 




212 




-A 


5(,XR1) # XR1 




213 


CHKSSO 


ST 


SADDR, XR1 




214 




B 


PACK 


01C2 


215 




DC 


111 '2' 


01C4 


216 


SADDR 


DC 


A' 2 {*-*) 


01C6 


217 


XREF5 


DC 


AL2(*-*) 




21R 




B 


*-* 


01CA 


219 


XREF4 


EQO 


♦ -1 




220 




CLI 


1 (,XR1) .C',' 




221 




LA 


3 (, XR1) ,XR1 




222 




BE 


CHKSSO 




223 




B 


PGHLOD(,XR2) 




224 


CHKSE 


CLI 


(, XRi) ,C E* 




225 




BNE 


PGML0D(,XR2) 




226 




TBN 


7LAG.BTT5 




227 




BF 


129(,XR1) 




228 




L 


MEXIT*3 (,XR2) ,XR1 




229 




B 


0(,XR1) 




230 








0018 


231 


BASE1 


EQU 


ID 


0880 


232 


WORK 


EQU 


X'880' 


01FD 


233 


FLAG 


EQO 


XMFD' 


01FE 


234 


DTABLE 


EQO 


X'1PE» 


0068 


235 


LOADTB 


EQU 


X'68« 



JUMP 
CARD 



IF THIS IS NOT A COMMENT 



PRINT CONTENTS OF THIS CARD 

FLAGS 

GO READ NEXT CARD 

SSH? 

NO 

YES, CLEAR SSH10 THRU SSW2F 

PICK OP S OF FIRST SSM 

STORE 3 TO PACK SSW 



CHECK FOR ANOTHER SSH 

INCREMENT 3> TO PICK UP NEXT SSH 

DO IT AGAIN IF , 

IS THIS AN END CARD ? 
CO READ NEXT CARD IF NO 

BRANCH TO X«901* 

RETURN TO DCP 



DATE 
EC NO. 



20APR70 
816682 



01AUG7O 
R16730 



01OCT7 
816760 



01APR71 
8189(48 



PROG ID 
PAGE 



OFPB-3 
2A 



IBB fWIt.'TENAN-- DIAGNOSTIC PROGRAM 



PPB3 DIAGNOSTIC LOADER FOR DISK 



PART NO, 
PAGE 



25P8U57 
3 



ERR IOC OBJECT CO, IE 

0*00 

0A00 0001 

1A02 09 

0A03 00 

OAOx 0000 

0A06 C3C8C1C905 



ADDR STMT SOURCE STATEMENT 



0A01 
0AO2 
0A03 
OAOS 
OAOA 



OAOB 

OAOE 

0A11 

0A15 

0A1<J 

0A1C 

0A20 

0A21 

0A2tt 

0A27 

0A2A 

0A2F 

OA33 

0A37 

0A38 

0A3A 

0A3C 

0A3F 

0A42 

0A46 

0A49 

0A4C 

0A4F 

0A52 

0A55 

OASfl 

0A5B 

0A5K 

0A62 

0A65 

0A68 

0A6E 

0A71 

0A75 

0A79 

0A7A 

0A7C 

0A7E 

0A82 

0A85 

0A88 

0A8B 

0A8E 

0A92 

0A95 

0A9A 

0A9D 

OAAO 

OAAU 

0AA9 

OAAC 

OAAF 

0AB2 

0AB5 

0AB8 

OABB 

OABE 

0AC2 

0AC5 



7D 5C 
F2 01 
CO 87 
38 01 
EO 10 
CO 87 
21 

EO 87 
7D C3 
P2 01 
1C 00 
CO 87 
CO 87 
0'» 

08 39 
0203 
7D F1 
F2 01 
3A 80 
7D C2 
F2 8 2 
7D Ct 
F2 OU 
FO 3B 
; 2 87 

7D EU 
F2 01 
CO 87 
7D «0 
F2 01 
OF 2D 
D2 01 
34 01 
CO 87 
02 

0000 
0A03 
C2 02 
E2 02 
B8 10 
F2 90 
FO 3B 
C2 0? 
EO 87 
8P 00 
F2 81 
BD 00 
CO 01 

r,c oo 

BB OF 
BC 00 
D2 01 
7D 60 
F2 01 
D2 01 
7D HO 
CO 81 
70 6B 
P2 01 



13 

0B6F 
0208 
55 
021 A 

55 

00 

2E 

0200 04 

0B6F 

0226 



OR 

04 

0204 

Of 

06 

OU 

3C 

6F 

36 

00 

AD 

0B6F 

03 

06 

025P 025F 

05 

0A7B 

0226 



022P 
03 

01 

OA 

6F 

0018 

55 

00 0A03 

07 

00 

0A82 

00 0A03 

01 

02 

01 

00 

03 

01 

00 

0A8E 

00 

07 



0A20 



0A37 
0A39 
0A3B 



0A79 
0A7B 
0A7D 



2 37 

238 

231 

240 

2<I1 

242 

213 

244 

2 45 

246 

247 

248 

249 

2 50 

251 

252 

253 

250 

255 

2 56 

2 57 

T58 

2 59 

260 

261 

262 

263 

2 64 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

2 76 

277 

278 

279 

280 

281 

282 

283 

28U 

285 

286 

287 

2 

2 

2 

29 1 

292 

29 1 

291 

295 

296 

2 97 

298 

299 

300 

301 

302 

303 

308 



ONE 

NINE 

DEV 

MASK 

CHAIR 

CKCOB1 



CKCPU 



CDERRO 



CKODT 



PTPDC 
ULP1 



UPTR 



0LP2 



?XTP 



•DTA 



LDODT 



JLPft 



ORG X'AOO' 

DC II ?> 1 • 

DC XLI'09' 

DC XL1'0' 

DC XL2'0' 

DC CL5 , CHAIN« 

Ctl (, XR1) ,C'*' 

JNE CKCPU 

B DEFINE 

TBN SBYTE0,SSH07 

BT PGNLOD(,XR2) 

B PRINT 

DC XL1'21' 

B PGMLOD(,XR2) 

Ctl (,XR1) .C'C 

JNE CKUDT 

H\C SMOD(I) ,4{,XR1) 

B DEFINE 

R PACK 

DC IL1'4« 

DC AL2{INPUT+9) 

DC AL2(SIZE) 

CLI 11 (,XF1) ,C 1« 

JNE **7 

SBN CPU.X'RO* 

CLI 1 (,XR1) ,C'H' 

JL CD^RRO 

CLI U (,XR1) ,C'D> 

JtHI NEXTft 

HPL H0,HH 

J NEXTR 

cli o f.xHi) ,cn« 

JNE CKCHN 

B DEFINE 

CLI 3 (,XR1) ,C< ' 

JNE PTPDC 

SLC IITAB + 45(46) .UTAB+45 

LA 5(,XR1) ,XR1 

ST UPTR.XR1 

B PACK 

DC IL1'2' 

DC AL2{*-*) 

DC AL2(DEV) 

LA UTAB-3,XR2 

LA 3(, XR2) ,XR2 

TBN 1 (,XR2) ,BIT3 

JF tJDTA 

HPL HO.HH 

LA BASE1.XR2 

B PGMLOD(,XR2) 

C7.C (1.XR2) , DEV 

JE LDODT 

CLI 0(,XR2),X'0' 

8NE ULP2 

MVC ( 1,XR2) ,DEV 

SBP 1 (,XR2) ,X'0P' 

nv; 2(,XR2),x«o« 

LA 1 (,XR1) ,XR1 

CLI (,XR1) ,C'-« 

JNE **6 

IA 1 (, XR1J ,XR1 

CLI (. XR1) ,C • 

BE NP.XTR 

CLI 0(,XR1J,C«,« 

JNE ODTB 



BRANCH tf NOT COMMENT CARD * 

GO READ NEXT CARD • 

* 
» 
BRANCH IF NOT CPU DEFINITION CAPD 

PUT SYSTEM MODEL INTO SRT 

PACK CORE SIZE INTO SRT 

COLUMN 12 CONTAINS «1« 
MAKE SURE SYSTEM MODEL IS B.C. OR D 



YES, GO READ NEXT CARD 
*NO, CARD SET UP IMPROPERLY 
GO READ NEXT CARD AFTER HALT RESET 

BRANCH IF NOT UDT CARD 



CHECK THIRD COLUMN FOR BLANK 
JUMP IF NOT BLANK 
OUT PREVIOUS t!DT ENTRIES 
POINT AT FIRST DEVICE CODE 
SET UP DEVICE CODE POINTER 
PACK DEVICE CODE 



POINT AT DCP UNIT (ABLE 
INCREMENT UNIT TABLK POINTER 
BRANCH IP NOT LAST DCP ENTRY 

•RAN OUT ROOM IN UDT TARLE 
LOAD XR2 AS RASE 
GO READ NEXT CARD 
BRANCH TO OVERLAY IF THIS IS SAME AS 

PREVIOUS F.NTPY 
IS THIS AN UNUSED ENTRY 
IF NOT UNUSED, GO CHECK NEXT 
SET UP THIS UJT ENTRY DEVICE CODE 
CLEAR OPTION 3T.TS 



FOR DASH 



IF BLANK ENCOUNTERED, CARD IS DONE 

IP COMMA ENCOONTEBED, GO TO NEXT 
DEVICE CODE 



DATE 
EC NO. 



20APR70 
816682 



01AUG70 
816730 



1 0CT7 
816760 



01 A >R71 
fl1 ft9i*8 



PROG ID 
PAGL 



OFPB-3 
3 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



FFB3 DIAGNOSTIC LOADER POR DISK 



PART NO. 
PAGE 



25H.3457 
3A 



ERR LOC OBJECT CODE 



ADDR STWT SOURCE STATEMENT 



0AC8 


D2 


01 


02 






305 




LA 


2 (, <R1) ,XR1 


OACB 


CO 


87 


0A71 






306 




B 


ULP ' 


OACF 


7D 


FO 


00 






307 


'JOT 3 


CLI 


( , X r< 1 ) , X • FO 


UA02 


F2 


02 


05 






308 




JNL 


UDTC 


0AD5 


4E 


00 


00 A02 




3 09 




ALC 


(1, XR1) # NTNE 


OADA 


7B 


FO 


Ou 






310 


UDTC 


SBF 


(,XR1) ,X«F0* 


CADD 


OC 


01 


0A05 


OA01 




311 




HVC 


MASK (2) .ONE 


0AE3 


IF 


00 


00 0A01 




312 


(TLP3 


SLC 


(1# XR1) ,ONE 


0AE8 


F2 


82 


OA 






313 




.1L 


UDTD 


OAEB 


OE 


01 


0A05 


OA05 




314 




ALC 


MASK (2) .MASK 


OAF1 


CO 


87 


0AE3 






315 




P 


ULP3 


OAFS 


OC 


00 


802 


0»0'-! 




316 


UDTD 


MVC 


USET1+1 (1) .MASK-1 


OAFB 


OC 


OC 


0B05 


OA05 




317 




mvc 


USFT2+1 (1) .MASK 


OB01 


BA 


00 


01 






318 


USE! 1 


ItN 


1 (,XR2) .*-* 


0B04 


BA 


00 


02 






31« 


0SET2 


LBN 


2(.XR2) ,*-* 


OB07 


CO 


87 


0AB8 






3 20 
321 




B 


UI.P4 


OBOB 


4D 


01 


07 OAJA 




i22 


CKCHN 


Cl.~ 


1 (5.XR1) .CHAIN 


0B10 


F2 


01 


17 






32 3 




■i n r. 


CKSSW 


OB13 


CO 


87 


0226 






3; i4 




B 


PACK 


0B17 


FO 








OB 17 


325 




DC 


IL1 '240' 


0B18 


097B 






0R19 


32t 




DC 


AL2 (INPUT+251) 


0B1A 


0877 






0B1B 


327 




DC 


XL2" 877* 


OB1C 


7D 


FO 


on 






328 




CLI 


11 (,XR1) ,C'0< 


OB1F 


F2 


01 


0« 






329 




JNE 


♦ ♦7 


OB22 


3C 


FF 


0878 






330 




MVI 


y '878 ■ ,X'FF« 


0R26 


CO 


87 


0A8F 






331 
3 32 




B 


NRXTR 


OB2A 


7D 


E2 


00 






333 


CKSSW 


cl: 


(, XF1) ,C'S« 


0B2D 


F2 


01 


1A 






3 34 




JNF 


CKEVD 


OB30 


C2 


02 


0018 






335 




LA 


B, SE1, XR? 


0B34 


OF 


05 


020D 


C20D 




336 




SLC 


SBY7K5 (6) .SBYTE5 


OB3A 


OC 


01 


01C6 


1FP7 




337 




nvc 


XREF5 (2) ,X' 1FF7' 


0840 


OC 


01 


010. 


1PF9 




338 




F1VC 


XREF" (2) ,X' 1PP9' 


0BU6 


CO 


87 


01B1 






339 
340 




B 


SSWRD 


OBUA 


7D 


C5 


00 






341 


CKEND 


CLI 


(, XR1) ,C*F.' 


0B4D 


CO 


01 


0A8E 






342 




BNE 


NEXTR 


OB51 


OC 


01 


0068 


1FFF 




34 3 




five 


XREF1 (2) .X'IFI'P 1 


OB57 


OC 


01 


01CA 


1FP9 




344 




nvc 


XREF4 (2\ ,X« 1FFT 


0B5D 


OC 


01 


01C6 


1FF7 




345 




nvc 


XREP5(2) ,X" 1FF7' 


0663 


C2 


01 


0196 






346 




LA 


CKC0M.XR1 


0B67 


3« 


01 


0082 






347 




ST 


CKC0MA*3, XR1 


0B6B 


35 


10 


1PFB 






348 




L 


XRF.F3.IAR 


0B6F 


35 


10 


1fPD 






349 


DEFINE 


L 


XREP2.IAE 












V^PD 


350 


XRFP2 


EOO 


X« I^FD' 












11' FB 


351 
352 


XREF3 


EQU 


X'lPFR* 














353 


♦*»»»*♦♦*** 
















354 


* EOUATES *«»»»*»»**»»«*>'*»*«♦ 














355 


** »»*•»*»«♦ 














Ofl80 


356 


INPUT 


tov 


X'880' 












0200 


357 


shod 


EOn 


X«200' 












0203 


358 


SIZE 


EOO 


X'203' 












0204 


359 


CPU 


EOU 


X'204' 












0208 


360 


SDYTEO 


EQU 


X'208' 












0031 


361 


SSW07 


EQU 


X'01" 












02 32 


362 


UTAB 


EQU 


X'232' 












0212 


363 


TEST 


EOU 


X'212" 












2 'A 


364 


PRINT 


r.ou 


X*21A' 












021E 


365 


UNPACK 


EQU 


X«21E' 












0226 


366 


PACK 


EQU 


X«226« 












00 1(1 


367 


IAR 


EQU 


X'10* 












00 OH 


368 


ARR 


EQU 


X'OR" 












ooo; 


369 


XR1 


EQO 


1 












0002 


370 


XR2 


EQU 


2 












006F 


371 


HO 


BOO 


X«6F« 












0007 


372 


H7 


EQU 


X'07« 


DATE 


20APR70 


01AUG70 


010CT70 


01APR71 


EC NO. 


61668: 


> 


816 7 3 


816760 


fi 18 948 





CHANGS EBCDIC 0- R TO BINARY 



INITIALIZE I1ASK WITH LAST BIT ON 
SHIFT BIT TO PROPER POSITION TO 



LOAn flASK INTO SET BITS ON 

INSTRUCTIONS 
TURN ON PROPER OPTION BIT 

GO LOOK A T NKXT OPTION NU",BFP 

BRANCH Z" NOT CHAIN IMAGE CONTROL 

CA"D 
->ACK TI'IS PRINT IflAGE DATA CARD 

INTO PROPER LOCATION 
Si:URCS 
DESTINATION 

TEST FOR 120 CHARACTER CrlnIN 
JUMP IF NOT 120 CHARACTER 
SET FLAG TO SAY 120 CHARACTER 



CLEAR SSWOO THRU SSW3F 

SET UP LINKAGE TO SENSE SWITCH RTN 

PROCESS THE SSW CARD 

BRANCH IP NOT ENi) CARD 



GO HF.GIN DCP 



•**♦**«**»»**»«**•*****«. 



•*«♦«**« 



SYSTEM MODEL IDENT LOCATION 

CORE SI7.E OF SYSTEM 

CPU OPTIONS 

C01M0N SFNSE SWITCHES 

SSW TO LOAD SECTION AND ,,0 

FIRS" BYTE OF ODT TABLE 

ENTRY TO CHECK CONSOLE SWITCH'S 

ENTRY TO DCP PRINT 

ENTRY TO UNPACK ROUTINE 

ENTRY TO PACK SUBROUTINE 

TNSTRUCT r ON ADDRESS RZGISTER 

ADDRESS RECALL REGISTER 

INDEX REGISTER 1 

INDEX REGISTER 2 



PROG ID 
PAGF 



OFF P- 3 

T « 



IBH HAINTENANCE DIAGNOSTIC PROGRiN 



t-ART NO. 
PAGE 



2588457 



PPE3 



DIAGNOSTIC LOADER FOR DISK 



EBR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 













006C 


373 


.'C 


EO" 


X'6C« 












00 3B 


374 


m 


EQU 


X'3B" 












0020 


3 75 


BtT2 


EQU 


X«20« 












00 10 


376 


B. T3 


EQU 


X* 10* 












0008 


377 


P1T4 


EQU 


X'09' 












0004 


378 


BI '5 


ton 


X'04« 












0002 


3 79 


BIV6 


EO" 


X'02* 












00O1 


380 


BI17 


EQU 


X'01* 












00 A2 


381 


BUS ' 


EO" 


X ' •. 2 ' 












00A6 


382 


CTL1 EG 


EQ" 


X'*6 












00 AO 


383 
384 
»5 


NTRl Y 

• 


EQU 


X'AO' 














386 


»♦ EXECUTION ENTRY PCirfT. 














3 87 


* 






37 3 


3C 


40 


097F 






388 


BEGIN 


MVI 


X , "7F , ,C , ' 


0377 


oc 


FF. 


097E 


097F 




389 




MVC 


X'a7E' f255) ,X'97F' 


37 D 


OC 


03 


087P 


0880 




3°0 




(1VC 


T '87P* (4) .X^IO' 


01«1 


C2 


02 


0018 






391 




LA 


BASE1, XR2 


0H87 


30 


A3 


OCOP 






392 




SNS 


SNSA3E. *'A3« 


ORflB 


3S 


01 


OCOA 






393 




TBN 


SNSARE-1,X'01« 


0R8F 


F2 


90 


20 






394 




JF 


HODLD 


0992 


3C 


04 


0A8D 






395 




MVI 


NEXTR-1 ,T'04' 


0B96 


3C 


78 


0A8C 






396 




MVI 


NP.XTR-2.X" 78' 


0B9A 


3C 


78 


0A5"> 






397 




MVI 


C0F.RRn*1 ,X'78' 


0B9S 


3C 


04 


0A54 






"18 




MVI 


CDERR0+2,X'04 • 


0BA2 


3C 


78 


0162 






399 




MVI 


FRRHLT+1 ,X '78' 


0C.«6 


3C 


3C 


0*63 






'100 




MVI 


ERSIH.T + 2.X ' 3C 


OQAA 


3C 


78 


0063 






411 




;.vi 


HPLHD* 1 .X'^fl' 


OBAE 


3C 


6C 


0064 






uo •; 




MVI 


HPLHb*2 I X , 6C* 


0BB2 


CC 


00 


OCOC 


0011 




403 


HODLD 


rvc 


DISKTP (11 , X ' 1 1 ' 


0BB8 


8 3 


00 


1A OCOC 




4C-4 




M7 ' 


SEEKF1 (,XR2) , DISKTP 


OBBD 


88 


00 


58 OCOC 




405 




Hi. 2 


SEiiKF2 (,XR2) .DISKTP 


0BC2 


C8 


00 


0174 


OCOC 




4 06 




HZZ 


SEEKF3, DISKTP 


0BC8 


00 


00 


01::e 


OCOC 




407 




"ZZ 


SF.EKP4, DISKTP 


OBCF. 


88 


00 


87 OCOC 




408 




«z: 


READP(,XR2) .DISKTP 


0BD3 


08 


00 


0156 


OCOC 




4 0.9 




HZZ 


ALTS X 0*1, DISKTP 


C3D9 


39 


0* 


OCOC 






'<10 




Tnp 


DISKTP, X'08' 


03DD 


F2 


lli 


?1 






■;1 




JT 


SF.TF.NT 


OBEO 


BA 


08 


1A 






U'2 




SRN 


SEEK"1 (, XR2) ,X'08« 


0BE3 


BA 


08 


58 






413 




SBN 


nEEKF2(,XR2) ,X'08» 


0BE6 


3A 


08 


C174 






414 




SBN 


S^n:KP3,X'vT8< 


OBEA 


3A 


08 


018E 






4 15 




SBN 


SF.EKP4,X'08' 


OBEE 


BA 


08 


87 






416 




S:3N 


READF(,XR2) .X'OR' 


0BF1 


3A 


08 


0156 






417 




SBN 


ALTSIOtl.X'Oa* 


0BP5 


3A 


08 


0140 






418 




SBN 


HATT*1 , X'08' 


0BP9 


3A 


08 


0159 






419 




SBN 


WAITm.X'OS' 


OBFD 


3A 


08 


0146 






420 




SBN 


7STERR»1 ,X'08« 


0C01 


<K 


03 


01FF 


0C10 




421 


S27ENT 


MVC 


X'lFP* (4) ,ENTRYS 


0C07 


EO 


87 


55 






422 




3 


P1HL0D{,XR2) 


OCOA 


0000 






OCOB 


42? 


SNSARF 


DC 


XL2«0« 


OCOC 


00 








OCOC 


424 


DISKTP 


DC 


XLI'OO* 


OCOD 


0183 






OCOE 


425 




DC 


AL2(RKCARD) 


GCOP 


0019 






OCIO 


426 


ENTRTS 


DC 


AL2(E*T>) 












0373 


027 




END 


BEGIN 



HALT DISPLAY CODE -H- 



FOOATE FOR B LF.7EL 
EQUATE POR B LEVEL 
EQUATE FOR B L3VEL 



CLEAR PRINT IMAGE AND DATA FIEL:>i 

LOAD XR2 AS BASE 
IS SYSTEM HOD B 
SET MOD B HALTS 



MOVF. SWITCH FROM BOOT TO LOADER 



TEST FOR RUN ON REKOVABLE DI C K 
JUMP IF YES 



MOVE ENTRIES POINTS 
GO BEGIN LOADING 



DATE 
EC NO. 



20API170 
816682 



01AUG7C 
816730 



010CT70 
A16760 



01APR71 
818948 



PROG Ii> 
PAGE 



OPPB- 3 
4 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



25B8C57 
UA 



tpb3 



DIAGNOSTIC LOADER FOR DISK 



CROSS-REFERENCE 



STHBOL 


T 


LEN 


VALU^ 


DFFN 


RFFERENCES 






ACTCON 


A 


003 


OOBF 


009U 


0041 








ADREXT 


A 


001 


0139 


0150 


123 


0137 






ALC 


A 


004 


OOAO 


0078 


0081 








ALTDPC 


A 


002 


OOCB 


0100 


0167 








ALT5IO 


A 


003 


0155 


0168 


0409* 


0" 17* 






ARDDFC 


A 


001 


OOCC 


0101 


0100 


0170 


iTS* 


0183* 


ARR 


C 


001 


0008 


0368 


0026 


0050* 


0074 


0116 '. S 9 


BASE1 


A 


00<« 


0018 


0231 


0023 


0025 


0162 


0179 0188 0190 


BEGIN 


A 


ooa 


0B73 


0388 


0427 








BIT2 


C 


001 


0020 


0375 


0061 








BIT3 


C 


001 


0010 


0376 


0285 








BIT4 


; 


001 


0008 


0377 










BTT5 


c 


001 


OOOU 


0378 


0226 








BIT6 


c 


001 


0002 


0379 


0037 








BIT7 


c 


001 


0001 


0380 


)4 8 








BOST 


c 


001 


00A2 


0381 


0127 


0132 


0154 


0169 


CDERRO 


A 


003 


0A52 


0268 


0265 


0397* 


0398* 




CHAIN 


A 


005 


OAOA 


02U3 


0322 








CHKSE 


A 


003 


01DR 


022U 


0210 








CHKSSW 


A 


003 


01AB 


0209 


0202 








CHKSSO 


A 


004 


01BA 


0213 


0222 








CKCHN 


A 


005 


OBOB 


0322 


0272 








CKCCa 


A 


003 


0196 


020I 


0346 








CKCCHA 


A 


J04 


00 7 F 


0065 


0347* 








CKCCM 


A 


003 


OAOB 


02U5 


0065 








CKCPO 


A 


003 


0A2U 


0253 


0246 








CKEND 


A 


003 


ORUA 


03U1 


0334 








CKND 


A 


C03 


OOUE 


0045 


0042 








CKSSH 


A 


033 


0B2A 


0333 


0323 








CKUDT 


A 


003 


0A5S 


0271 


0254 








C?0 


C 


001 


020U 


0359 


0263* 








CTLREG 


C 


001 


00A6 


0382 


01 15* 


0119 


0125* 


0130* 0134* 0!67* 


DEFINE 


A 


OOU 


0B6F 


03U9 


0247 


0256 


0273 




DEV 


A 


001 


0A03 


02U1 


0282 


0290 


0294 




DFDR 


A 


002 


00B6 


0089 


0082 


0152 






DISKTP 


k 


001 


OCOC 


0U2U 


0403* 


0404 


0405 


0406 0407 0408 


DSKERR 


A 


001 


0152 


0166 


0158 








DVABLE 


C 


001 


01FE 


023U 


0030 


0050 






ENTRYS 


A 


002 


0C10 


0U26 


0421 








ENT2 


A 


OOU 


0019 


0025 


0426 








ERRHLT 


A 


003 


0161 


0172 


0399* 


0400* 






EXTSAV 


A 


002 


00C1 


0095 


0176* 


0182 






FFB 


A 


001 


0000 


0003 










FLAG 


C 


001 


01FD 


0233 


0037 


0048 


0061 


0226 


FHDSEK 


A 


003 


0127 


01U3 


0138 








HC 


C 


001 


006C 


0373 










HD 


A 


OOU 


0057 


0048 


0046 








HH 


C 


001 


003H 


037U 


172 


026P 


02 87 




HPLHD 


A 


003 


0C62 


0051 


0401* 


0402* 






HO 


C 


001 


0P6F 


0371 


0268 


0287 






H7 


C 


001 


0007 


0372 


0172 








IAR 


c 


001 


0010 


0367 


0039* 


0348* 


0349* 




ID 


A 


OOU 


0018 


002U 


0031 


0043 


0231 




IDFND 


A 


OOU 


0069 


0055 


0044 








INPUT 


C 


001 


0880 


0356 


0257 


0326 






LAST3 


A 


002 


O0D1 


0105 


0125 








LASTAD 


A 


001 


00D3 


0107 


0128 


0133* 


01 36 


0139 0145 014 .* 


LDPARH 


A 


003 


OODF 


0117 


184 








LDR 


A 


OOU 


0065 


0052 


0049 








LDUDT 


A 


005 


0AA4 


0294 


0291 








LOADTB 


C 


001 


0068 


0235 










HASK 


A 


002 


0A05 


02U2 


0311* 


0314 


0314* 


0316 0317 


HEXIT 


A 


OOU 


J078 


0062 


0026* 


0039 


0228 




HODLD 


A 


006 


0BB2 


0403 


3 94 








HOVE 


A 


005 


008F 


0071 


0068* 


0069* 






NEXTR 


A 


OOU 


0A8E 


0288 


0267 


0269 


030^ 


0331 0342 0395* 


DATE 




20APR70 


01AOG70 


010CT70 


01AIR71 


EC NO. 




816692 


816730 


816760 


8189UR 



0288 0335 0391 



i 1* 



0409 0410 



0396* 



ppor. m 

PAGE 



OFFB-3 



IBM HAINTENANCE DIAGNOSTIC PROGRAtl 



FPB3 DIAGNOSTIC LOADER FOB DISK 



PART SO. 
PAGE 



2583H57 
6 



CROSS-REFERENCE 



SYflBOL 


T 


LEN 


VALUE 


DEPN 


REFE - ., 


EHCES 






NINE 


A 


001 


OA02 


2"0 


109 








NRP1DFC 


A 


00? 


00C3 


0096 


0113 


01 15 


0173 


01 RO 


NTRDT 


C 


001 


OOAO 


0383 


0158 








NTWO 


A 


001 


002U 


0029 










OK 


A 


00 


O10<_ 


13U 


0129 








ONE 


A 


OOz 


0A01 


0239 


0311 


0312 






OSES EC 


A 


001 


OORB 


0092 


0078 








PACK 


C 


001 


0226 


366 


21'- 


0267 


02 79 


0324 


PGflLOD 


A 


003 


006D 


0067 


07; 


020<J 


02C7 


0223 


PRIST 


C 


001 


021 A 


03fiU 


O20 5 


0250 






PTFDC 


A 


003 


0A6E 


0277 


02' 3 








RDHFC 


A 


001 


00B1 


0086 


! 1 * 


003U* 


0045 


0065* 


RDVTOC 


A 


003 


002F 


0035 


01.7 








READ 


A 


003 


00 a 6 


007;. 


OC'jf! 


0059 


0193 




REAEF 


A 


001 


009F 


0077 


i. '-. * 


0U16* 






RHCABS 


A 


002 


0C6 


0097 


1 ', •■ i 








RECARn 


A 


004 


0183 


0189 


(. 1 6 1 


0426 






RECEXT 


A 


00« 


0192 


019U 


1 r >9* 








REDEXT 


A 


0C<4 


OOAD 


0083 


' ?1»* 








SADDR 


A 


002 


01CU 


0216 


* 








SAVPHB 


A 


OOH 


016D 


0176 


; 4 








SBYTEO 


C 


001 


020R 


0360 


J 3 


0248 






SBYTE5 


C 


001 


020D 


0208 


21 1 


0211* 


03 36 


0336* 


SCRCH 


A 


001 


0133 


1U7 


0139* 


0T40* 


014U* 


0145* 


SECTNO 


A 


001 


OOBC 


0093 










SEF.KP1 


A 


001 


0CH2 


0036 


o«oa* 


0U12* 






SESKF2 


A 


001 


0C7O 


0058 


OU 05* 


0413* 






SEEKF3 


A 


001 


017U 


0178 


0106* 


0«* 1 n* 






SFEKFU 


A 


001 


018F 


0192 


O«07* 


0416* 






SEN^E 


A 


002 


OOBfi 


0O90 


0119* 


0121 


01 3<» 




SETADB 


A 


0C3 


0132 


148 


01U1 








SETALT 


A 


003 


016A 


0171 


0171 








SSTENT 


A 


06 


0C0 1 


CU21 


0U11 








SETSCN 


A 


003 


0029 


00 ?.3 










S-;TWOK 


A 


001 


0020 


0027 










SETXR1 


A 


001 


01UB 


0"!59 


116* 


01 17 


0176 


0182* 


SIO 


A 


003 


013C 


153 


0118* 








SIZE 


C 


001 


20 3 


3 58 


0260 








shod 


C 


001 


0200 


3357 


0256* 








SNSARE 


A 


002 


OCOB 


0U23 


0392* 


03°1 






SOORCE 


A 


C02 


0026 


00 30 










SSHRD 


A 


006 


C.B1 


0211 


33 3 








SSW07 


C 


001 


oooi 


0361 


203 


0248 






STPARH 


A 


0C3 


00DB 


01 16 


0177 








STRTIO 


A 


001 


OODS 


0112 


0035 


0O57 


0076 


0191 


TEST 


C 


001 


0212 


0363 










t? :err 


A 


003 


Oir 


0158 


0«20* 








TWOZR 


A 


002 


OOBA 


0091 










UDTA 


A 


oos 


0A93 


0290 


0286 








UDTB 


A 


003 


OACF 


0307 


30U 








IIDTC 


A 


003 


OADA 


0310 


jl.:- 1 








UDTD 


A 


00ft 


OAFS 


316 


Oil) 








IJLP1 


A 


OCU 


0A71 


0278 


306 








ULP2 


A 


003 


0^8? 


028U 


0293 








IILP.3 


A 


OOS 


o ■■ -■ • 


0312 


0316 








ULPU 


A 


003 


OAP ' 


0300 


320 








UNPACK 


C 


001 


C2u: 


36 5 


O028 








OPTR 


A 


002 


0A7B 


0281 


C278* 








USET1 


A 


00 3 


0P01 


0318 


316* 








OSFT2 


A 


003 


OBOU 


0319 


0317* 








t!T \ B 


C 


001 


02 3 2 


0362 


0276 


0276* 


0233 




WAIT 


A 


003 


013F 


1 Sit 


0113* 








WAIT1 


A 


003 


0118 


0169 


0419* 








WORK 


C 


001 


0880 


0232 


0)89 








XREF1 


A 


001 


0C68 


0053 


313* 








XREF2 


C 


001 


1FPD 


0360 


03U9 








DATE 


20APR7O 


01 A 11(17 


01OCT7 


1APP71 


EC NO. 


8166 82 


816730 


816760 


818948 



0225 0249 0262 0299 0422 



0075* 0078* 0079 0096 1114 0'65 0181 0183 



PROG 10 
PACE 



Or'FB- 3 
6 
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FFB3 



DIAGNOSTIC LOADER FOR DISK 



PART NO. 
PAGE 



2588U57 
5A 



CROSS-REPERENCF 



STMHOL T LEN VALUE P.EPN 



XHBF3 
XBEF4 
XBEF5 
XR1 



IB 2 



C 001 1FFB 0351 

A 001 01CA 0219 

A 002 01C6 0217 

C 001 000* 0369 



C 001 0002 0370 



REFERENCES 






















0348 
























o 1 1 8 * 


014U* 






















0337* 


0345* 






















0041 


004 3 


O0S5 


0064 


06 8 


0069 


0070 


007 0* 


0071 


0082* 


01 17* 


0113 


1 ?0 


0121* 


01 S 5 


01 36 


0140 


014 3 


14 4 


0148 


0149 


0156 


1 6 * 


16 3 


0201 


0209 


02 12 


0212* 


021 1 


02 2 


02 21 


2 2 1 * 


2 24 


0227 


022 8* 


02 2 ~> 


0245 


0253 


0255 


026 1 


0264 


0266 


27 1 


0274 


0277 


0277* 


0278 


02 97 


2 97* 


0298 


0300 


0300* 


301 


10 3 


i05 


105* 


0307 


0109 


0310 


112 


322 


032« 


0333 


031 1 


0346* 


0347 














0025* 


002ft 


00 33 


0034 


00 35 


00 3 9 


0040 


0041 


00 4 3 


0045 


00 4'' 


0055 


0057 


0059 


0068 


0069 


0072 


0074 


0075 


0076 


0078 


0078 


0079 


0081 


0(12 


011 3 


0113* 


0115 


0116 


0117 


0118 


01 19 


0121 


0125 


0127 


0128 


0130 


0132 


133 


01 3U 


0*36 


0139 


0139 


0140 


144 


0145 


0145 


0149 


0152 


015U 


0158 


0161 


0161* 


0167 


0169 


0170 


0171 


0175 


0176 


0176 


0177 


0180 


0180* 


0182 


0182 


0183 • 


0183 


01 84 


0190* 


0191 


0191 


0204 


0207 


0223 


0225 


0228 


0249 


0252 


0281* 


028 4 


0284* 


0285 


02P8* 


0289 


0290 


0292 


0294 


0295 


0296 


0318 


0319 


0335* 


3 9 1 * 


0404 


04 05 


0408 


0412 


041 3 


0416 


0422 



















TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 



DATF 
F.C NO. 



20APR70 
.1166 82 



01AIIG7 
8167 10 



oiorr/o 

816760 



1A.PR71 
818948 



"HOG T9 
PA 'IF. 



'- I." p r, . ( 



IBH HAINTENANCE DIAGNOSTIC PROGRAM PART NO. 25381*57 

PAGE 6 

FFB3 DIAGNOSTIC LOADER FOR DISK 

OBJECT CARD LISTING 

THE CHARACTER * INDICATES A BLANK COLO FIN AND THE CHARACTERS D E H INDICATE NIJ-'EPIC SHIFT. 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 31 THROUGH «fl CL «<> THROUGH 6U CI. 65 THROUGH RO CL 81 TMPC UGH <16 

T*-At6DA*5<HP* AS UBF | " /0 H; "-G"" AS SBIDa* I?-/*U* ♦• * H A"-HS t-IC^PCVjlt R 5^ 5). -• ilD $?SG "/OFFB30001 

T*-BHW?HA*=BGE3- A " -7 2D " *5b" G"3C_ 30H»" * I0AW0L-/I1 *SH)=*3 A»» S G1 • flOC r,Y.X 19 90 ;-D P F1FFB 30002 

T *.-CE«-DPG c -/50UBISS I3-/IU A,-F$T#/-H= SS.F1 AXtBG A06 DH A CAO=< B 1 <0 1A-PFR30OO3 

T „- D "0C<" * "**Ck" *"_SH,%EO K_"sE_5FEx"r.<*.H WA7t;G ,HAA n HCK.F W H | ♦ / ; FS.1 , IICH-H f,C.D IQ- FF3 300 0<l 

T»-DIVL3y*C/r,Tl j'bKU-) s" (_" "d SSYD-3YS. ,'bRHZI '--G2/0_: 5H» HH A,0",P!!X0 VO H-F 1Z F1 5/ "P530005 

T*-E630"8EH*;0D B8E3/0-D*. F!B6)B G* $PWP ? */' : FS Zttt BP"~IAB- *A#FWD?H G *0 AP: OADI.-/2Y _f,H "A -FEB 300 06 

T*-F1D:0AW/Bt"/fl C8H»_ (* - AV* KB* AT -/*a"flH)=0H* GS * ; HAC3-A -T-DEP /OHEH ; P';NP7s |H AI03 9-a?PR30007 

T>"GD*0t:(*-7K*6H U*SGD0H«BT-K* " * C H»" G5, " ) H A 9B A $,-/5S'ir,C- N* HA G • •* I BA_f,ET4 H* 123FFR30008 

T^-Yt'r'I 03T A2)N>P*C2J| /0_ ?♦ DBB+ SN*BG /Y /R!i)N-»< B-D>G B L /0_?0H*BI"6 HSCH SY<PFR3OO0>3 

T»-Z5*771B"HAACD * -J" 0-L2~ R ' 1 L 2 AC30*6"2/3R' 9 C 2 E7 /0_?-.l Cd-D .- C2<i 3?0I-.y-DE ( D H;3 O0~,FFB30O 10 

T*-DO/OHW*-**B-| b"-H?8-HC>a"a*z' H9C_?0-H* F»BG SQ1 **YC3YDG?S D H-YO YOOiA? 0U--D -/OFFE30O11 

T*-,,*P5-*|Ha"'H A*p5"*<BABY9'E0C 2*£-K*S."/0Z1 — * 3-HEL- B-I»J < >;YEB-E| H ^H RR-8 •TSFPB30012 

T*-*H*£YEB-P*/0. TC*".*-YDc". ACY E>-" A>-" R0H*H>D« DAO YH.i)-DP0ll*6I? 1 : 0/7-.-. .3-DD | | 3 H;< : 1 I* FP.300 1 3 

T »__ //0 o*^;H*a-D EO-nVat'-uBCGO a"*o-'00a"*y-.=»b g"$e"isc f-ri»c d ea""c da2/"9c d ai/s $yuffr3ooi« 

T*->*'aHA*RQU*6B B (.7 -.= 3 Hf,C," <t3G V "C|fll — VC <H-0s 0-H FCRTC t3 -",0 H«Z -| f,HTL18BT0 H T ',VrFB30O15 

T»-?P:-30DBV6*;"b S|C0A031«"fO$*A Dc"<C JS EC 2 H E-<C - Pf-<C - 0R<Cti- /OtK? AN-0 N.DPFB30O16 

. . . . • .... 

T* OKCCUHC 32DBF :6AD:BE-:B E»»— AT.YH/3YH NQ: B E ♦-- AOLTH F1Q< OG "CAC-/SF1 ^-0 R OH»FFB30O17 

EB7(»B7« = -..,C»PHS ="7M5F|"" l""c" Ft" " ASC* " * R* A So"V"" "" "* "" 09310317710 H057 15 YFFB300 1 8 



LAST P'-GE 



DATE 20APR70 01MIG70 010CT70 01APR71 PH f lG ID 0FPR-3 

EC NO. 816682 816730 R16760 818948 P* r 'E 6 



